(face-equal): Do check the underline attribute.

diff --git a/lisp/faces.el b/lisp/faces.el
index cfed0a65d265d2eb94351a64e373aa3e40e3f272..8f008a42898a61415ad7dad4b6f5b038d414242d 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -335,6 +335,7 @@ to NEW-FACE on frame NEW-FRAME."
   (and (equal (face-foreground face1 frame) (face-foreground face2 frame))
        (equal (face-background face1 frame) (face-background face2 frame))
        (equal (face-font face1 frame) (face-font face2 frame))
+       (eq (face-underline-p face1 frame) (face-underline-p face2 frame))
 ;;       (equal (face-background-pixmap face1 frame)
 ;;           (face-background-pixmap face2 frame))
        ))